<%
if RZ_IN<>1 then
	response.write("非法请求")
	response.end
end If

Sub Default(S_KEY)
Dim defaulttemplate
defaulttemplate=app("rz_template_default")
If defaulttemplate="" Then
defaulttemplate="default.html"
End If 
SysInclude(defaulttemplate)

Set S_CRUMB=new RZCrumb
S_CRUMB.Str=getstr("lang_homepage")

If S_KEY=0 Then 
	Flush()
Else
	FlushToHTML()
End If 

End Sub
%>